#!/usr/bin/perl

for ( 'clean', 'drop' ) {

	system( "perl mk.$_.pl <create.sql >$_.sql" ) == 0 or die "system() failed: $?\n";
	print "$_.sql created$/";
}

